00100		DIMENSION I(90),II(90)
00200	1	FORMAT(' TYPE INPUT NAME '$)
00300	2	FORMAT(A5)
00400	3	FORMAT(90A1)
00500	4	FORMAT(1X90A1)
00600	5	FORMAT(' TYPE OUTPUT NAME '$)
00700	6	TYPE 1
00800		ACCEPT 2,NAM
00900		CALL IFILE(1,NAM)
01000		TYPE 5
01100		ACCEPT 2,NAM
01200		CALL OFILE(20,NAM)
01220		KAP=-1
01300	7	READ(1,3,END=10)I
01400		DO 8 K=90,1,-1
01500	8	IF(I(K).NE.' ')GO TO 9
01700		K=1
01800	9	DO 11 J=1,K
01900		N=I(J)
02000		IF(N.EQ.' ')GO TO 11
02100		IF(N.NE.'.')GO TO 13
02200		KAP=-1
02300		GO TO 11
02310	13	IF(KAP)GO TO 12
02400		IF(N.LE.'Z')I(J)=N+17179869184
02500	12	KAP=0
02600	11	CONTINUE
02700		TYPE 4,(I(J),J=1,K)
02710		WRITE(20,4)(I(J),J=1,K)
02800		GO TO 7
03000	10	END